with Murs;
with murs_strings;
with communautes_strings;
with Ada.Text_IO;
generic
   with function getIndividu(mess : String) return Individu is <>;
   with function putIndividu(i : Individu) return String is <>;

   with function getCercle(mess : String) return Cercle is <>;
   with function putCercle(c : Cercle) return String is <>;

   with function getTexte(mess : String) return Texte is <>;
   with function putTexte(t : Texte) return String is <>;

   with function putMur(m : Mur) return String is <>;

package Communautes.test is
   procedure class(x : in out communaute'Class);
end Communautes.test;
